home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / ALEXLEVI / DEMO / DEMO_VGA.PAS < prev    next >
Pascal/Delphi Source File  |  1994-04-12  |  20KB  |  322 lines
  1.  
  2. (*
  3.  
  4. ************************************************************************
  5. *                                                                      *
  6. *    This procedure was made by Alex Levitas' "VGA Font Editor".       *
  7. *                                                                      *
  8. ************************************************************************
  9.  
  10.  This procedure changes EGA/VGA screen font in text mode.
  11.  
  12.                            W A R N I N G ! ! !
  13.  This procedure DOES NOT check EGA/VGA existence, but ONLY download font.
  14.  
  15.  Before using this procedure, it is RECOMMENDED to reset current screen
  16.  mode, otherwise you will have PROBLEMS with the color palette.
  17.  
  18.  PROCEDURE WILL WORK ONLY WITH PASCAL 6.0 OR HIGHER !
  19.  
  20.  To use this procedure in your program, insert the directive
  21.  
  22.     {$I DEMO_VGA.PAS}
  23.  
  24.  If you want to use more than one changed font in your program, you
  25.  must change procedure name in each source file.
  26.  
  27. *)
  28.  
  29. Procedure ChangeVGAFont;
  30.  
  31. const
  32.  
  33.   Font: Array [0..255, 0..15] of Byte =
  34.    (
  35.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  36.     (  0,  0,  0,126,129,165,129,129,189,153,129,126,  0,  0,  0,  0),
  37.     (  0,  0,  0,126,255,219,255,255,195,231,255,126,  0,  0,  0,  0),
  38.     (  0,  0,  0,  0, 54,127,127,127,127, 62, 28,  8,  0,  0,  0,  0),
  39.     (  0,  0,  0,  0,  8, 28, 62,127, 62, 28,  8,  0,  0,  0,  0,  0),
  40.     (  0,  0,  0, 24, 60, 60,231,231,231, 24, 24, 60,  0,  0,  0,  0),
  41.     (  0,  0,  0, 24, 60,126,255,255,126, 24, 24, 60,  0,  0,  0,  0),
  42.     (  0,  0,  0,  0,  0,  0, 24, 60, 60, 24,  0,  0,  0,  0,  0,  0),
  43.     (255,255,255,255,255,255,231,195,195,231,255,255,255,255,255,255),
  44.     (  0,  0,  0,  0,  0, 60,102, 66, 66,102, 60,  0,  0,  0,  0,  0),
  45.     (255,255,255,255,255,195,153,189,189,153,195,255,255,255,255,255),
  46.     (  0,  0,  0, 15,  7, 13, 25, 60,102,102,102, 60,  0,  0,  0,  0),
  47.     (  0,  0,  0, 60,102,102,102, 60, 24,126, 24, 24,  0,  0,  0,  0),
  48.     (  0,  0,  0, 63, 51, 63, 48, 48, 48,112,240,224,  0,  0,  0,  0),
  49.     (  0,  0,  0,127, 99,127, 99, 99, 99,103,231,230,192,  0,  0,  0),
  50.     (  0,  0,  0, 24, 24,219, 60,231, 60,219, 24, 24,  0,  0,  0,  0),
  51.     (  0,  0,  0, 64, 96,112,124,127,124,112, 96, 64,  0,  0,  0,  0),
  52.     (  0,  0,  0,  1,  3,  7, 31,127, 31,  7,  3,  1,  0,  0,  0,  0),
  53.     (  0,  0,  0, 24, 60,126, 24, 24, 24,126, 60, 24,  0,  0,  0,  0),
  54.     (  0,  0,  0, 51, 51, 51, 51, 51, 51,  0, 51, 51,  0,  0,  0,  0),
  55.     (  0,  0,  0,127,219,219,219,123, 27, 27, 27, 27,  0,  0,  0,  0),
  56.     (  0,  0, 62, 99, 48, 28, 54, 99, 99, 54, 28,  6, 99, 62,  0,  0),
  57.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,127,127,127,  0,  0,  0,  0),
  58.     (  0,  0,  0, 24, 60,126, 24, 24, 24,126, 60, 24,126,  0,  0,  0),
  59.     (  0,  0,  0, 24, 60,126, 24, 24, 24, 24, 24, 24,  0,  0,  0,  0),
  60.     (  0,  0,  0, 24, 24, 24, 24, 24, 24,126, 60, 24,  0,  0,  0,  0),
  61.     (  0,  0,  0,  0,  0, 12,  6,127,  6, 12,  0,  0,  0,  0,  0,  0),
  62.     (  0,  0,  0,  0,  0, 24, 48,127, 48, 24,  0,  0,  0,  0,  0,  0),
  63.     (  0,  0,  0,  0,  0,  0, 96, 96, 96,127,  0,  0,  0,  0,  0,  0),
  64.     (  0,  0,  0,  0,  0, 36,102,255,102, 36,  0,  0,  0,  0,  0,  0),
  65.     (  0,  0,  0,  0,  8, 28, 28, 62, 62,127,127,  0,  0,  0,  0,  0),
  66.     (  0,  0,  0,  0,127,127, 62, 62, 28, 28,  8,  0,  0,  0,  0,  0),
  67.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  68.     (  0,  0,  0, 24, 60, 60, 60, 24, 24,  0, 24, 24,  0,  0,  0,  0),
  69.     (  0,  0, 99, 99, 99, 34,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  70.     (  0,  0,  0, 54, 54,127, 54, 54, 54,127, 54, 54,  0,  0,  0,  0),
  71.     (  0, 12, 12, 62, 99, 97, 96, 62,  3, 67, 99, 62, 12, 12,  0,  0),
  72.     (  0,  0,  0,  0,  0, 97, 99,  6, 12, 24, 51, 99,  0,  0,  0,  0),
  73.     (  0,  0,  0, 28, 54, 54, 28, 59,110,102,102, 59,  0,  0,  0,  0),
  74.     (  0,  0, 48, 48, 48, 96,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  75.     (  0,  0,  0, 12, 24, 48, 48, 48, 48, 48, 24, 12,  0,  0,  0,  0),
  76.     (  0,  0,  0, 24, 12,  6,  6,  6,  6,  6, 12, 24,  0,  0,  0,  0),
  77.     (  0,  0,  0,  0,  0,102, 60,255, 60,102,  0,  0,  0,  0,  0,  0),
  78.     (  0,  0,  0,  0, 24, 24, 24,255, 24, 24, 24,  0,  0,  0,  0,  0),
  79.     (  0,  0,  0,  0,  0,  0,  0,  0,  0, 24, 24, 24, 48,  0,  0,  0),
  80.     (  0,  0,  0,  0,  0,  0,  0,255,  0,  0,  0,  0,  0,  0,  0,  0),
  81.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 24, 24,  0,  0,  0,  0),
  82.     (  0,  0,  0,  1,  3,  6, 12, 24, 48, 96, 64,  0,  0,  0,  0,  0),
  83.     (  0,  0,  0,126,199,195,195,195,195,195,227,126,  0,  0,  0,  0),
  84.     (  0,  0,  0, 28, 12, 12, 12, 12, 12, 12, 12, 12,  8,  0,  0,  0),
  85.     (  0,  0,  0,126,199,195,102, 44, 24, 48, 97,255,  0,  0,  0,  0),
  86.     (  0,  0,  0, 62, 67,  3,  6, 60,  6,  3,  3,  3, 70, 60,  0,  0),
  87.     (  0,  0,  0,  6, 14, 30, 54,102,255,  6,  6,  6,  4,  0,  0,  0),
  88.     (  0,  0,  1,126, 96, 96,120, 76,  6,  3,  3,  3, 70, 60,  0,  0),
  89.     (  0,  0,  0, 62, 96,192,222,227,195,195,102, 60,  0,  0,  0,  0),
  90.     (  0,  0,  0,127, 99,  3,  6, 12, 24, 48, 48, 48, 32,  0,  0,  0),
  91.     (  0,  0,  0,126,199,195,227,126,199,195,227,126,  0,  0,  0,  0),
  92.     (  0,  0,  0, 62,103,195,195,199,123,  3,  6,124,  0,  0,  0,  0),
  93.     (  0,  0,  0,  0, 24, 24,  0,  0,  0, 24, 24,  0,  0,  0,  0,  0),
  94.     (  0,  0,  0,  0, 24, 24,  0,  0,  0, 24, 24, 48,  0,  0,  0,  0),
  95.     (  0,  0,  0,  6, 12, 24, 48, 96, 48, 24, 12,  6,  0,  0,  0,  0),
  96.     (  0,  0,  0,  0,  0,  0,126,  0,  0,126,  0,  0,  0,  0,  0,  0),
  97.     (  0,  0,  0, 96, 48, 24, 12,  6, 12, 24, 48, 96,  0,  0,  0,  0),
  98.     (  0,  0,  0, 62, 99, 99,  6, 12, 12,  0, 12, 12,  0,  0,  0,  0),
  99.     (  0,  0,  0, 62, 99, 99,111,111,111,110, 96, 62,  0,  0,  0,  0),
  100.     (  0,  0,  0,127, 15, 27, 51, 99,255,195,195,195,  0,  0,  0,  0),
  101.     (  0,  0,  0,222,227,195, 71,126, 99, 67, 71,254,  0,  0,  0,  0),
  102.     (  0,  0,  0,127,195,193,192,192,192,192,225,126,  0,  0,  0,  0),
  103.     (  0,  0,128,254,  3,127,199,195,195,194,100, 56,  0,  0,  0,  0),
  104.     (  0,  0,  0,127,195,193,192,252,192,192, 97, 62,  0,  0,  0,  0),
  105.     (  0,  0,  0,255, 99, 97, 96,124, 96, 96, 96, 96, 96, 96, 64,  0),
  106.     (  0,  0,  0,127,195,193,192,192,207,195, 99, 63,  3,  3,  2,  0),
  107.     (  0,  0,  0,224,192,222,227,195,195,195,198,207,  0,  0,  0,  0),
  108.     (  0,  0,  0, 60, 24, 24, 24, 24, 24, 24, 24, 60,  0,  0,  0,  0),
  109.     (  0,  0,  0, 60, 24, 24, 24, 24, 24, 24, 24, 24, 24, 48, 32,  0),
  110.     (  0,  0,  0,224,103, 99,102,108,124,110,103,227,  0,  0,  0,  0),
  111.     (  0,  0,  0,112, 48, 48, 48, 48, 48, 49, 51,127,  0,  0,  0,  0),
  112.     (  0,  0,  0,227,119,127,107, 99, 99, 99, 99,227,  0,  0,  0,  0),
  113.     (  0,  0,  0,231,113,121,125,111,103, 99, 97,225,  0,  0,  0,  0),
  114.     (  0,  0,  0,126,199,195,195,195,195,194,100, 56,  0,  0,  0,  0),
  115.     (  0,  0,  0,222,231,195,195,195,195,227,243,222,192,128,  0,  0),
  116.     (  0,  0,  0,123,231,195,195,195,195,195,207,123,  3,  2,  0,  0),
  117.     (  0,  0,  0,238,115, 99,103,124,102, 99, 99, 99,  1,  0,  0,  0),
  118.     (  0,  0,  0,125,231,227,112, 62,  7,195,226,188,  0,  0,  0,  0),
  119.     (  0,  0,  0,255,152, 48, 96,192,192,192, 99, 62,  0,  0,  0,  0),
  120.     (  0,  0,  0,227, 99, 99, 99, 99, 99, 99,103, 59,  0,  0,  0,  0),
  121.     (  0,  0,  0,195,195,195,195,195, 99, 54, 28,  8,  0,  0,  0,  0),
  122.     (  0,  0,  0,231, 99, 99, 99, 99,107,127,119,226,  0,  0,  0,  0),
  123.     (  0,  0,  0,195,193, 98, 60, 24, 60, 70,131,195,  0,  0,  0,  0),
  124.     (  0,  0,  0,207,199,195,195, 99, 63,134,198,124,  0,  0,  0,  0),
  125.     (  0,  0,  0,255,131,  3, 14, 60,112,192,193,255,  0,  0,  0,  0),
  126.     (  0,  0,  0, 60, 48, 48, 48, 48, 48, 48, 48, 60,  0,  0,  0,  0),
  127.     (  0,  0,  0, 64, 96,112, 56, 28, 14,  7,  3,  1,  0,  0,  0,  0),
  128.     (  0,  0,  0, 60, 12, 12, 12, 12, 12, 12, 12, 60,  0,  0,  0,  0),
  129.     (  0,  8, 28, 54, 99,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  130.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,255,  0,  0),
  131.     (  0, 24, 24, 12,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  132.     (  0,  0,  0,  0,  0,  0,123,199,195,195,231,123,  0,  0,  0,  0),
  133.     (  0,  0,  0,  0,222,227, 67,126, 99, 67, 71,254,  0,  0,  0,  0),
  134.     (  0,  0,  0,  0,  0,  0,127,227,192,192,227,127,  0,  0,  0,  0),
  135.     (  0,  0,  0,124,198,  3,127,199,195,195,227,126,  0,  0,  0,  0),
  136.     (  0,  0,  0,  0,  0,  0,126,195,255,192,225,126,  0,  0,  0,  0),
  137.     (  0,  0,  0,  0,  7, 24, 48, 48, 48, 48, 49,255, 48, 48, 48,  0),
  138.     (  0,  0,  0,  0,  0,  0,126,199,195,195,227,127,199,227,126,  0),
  139.     (  0,  0,  0,192,192,192,222,227,195,195,198,207,  0,  0,  0,  0),
  140.     (  0,  0,  0, 12, 24,  0, 56, 24, 24, 24, 24, 24,  0,  0,  0,  0),
  141.     (  0,  0,  0,  0,  0, 62,  2,  2,  2, 66,102,124,  0,  0,  0,  0),
  142.     (  0,  0,  0, 96, 96, 99,102,108,120,108,102, 99,  0,  0,  0,  0),
  143.     (  0,  0,  0,112, 48, 48, 48, 48, 48, 48, 50, 62,  0,  0,  0,  0),
  144.     (  0,  0,  0,  0,  0,  0,238,219,219,219,218,219,  0,  0,  0,  0),
  145.     (  0,  0,  0,  0,  0,  0,222,227,195,195,198,207,  0,  0,  0,  0),
  146.     (  0,  0,  0,  0,  0,  0,126,199,195,195,227,126,  0,  0,  0,  0),
  147.     (  0,  0,  0,  0,  0,  0,190,199,195,195,227,254,192,192,192,  0),
  148.     (  0,  0,  0,  0,  0,  0,126,199,195,195,227,126, 48,126,  3,  0),
  149.     (  0,  0,  0,  0,  0,  0,222,227,195,254,204,199,  0,  0,  0,  0),
  150.     (  0,  0,  0,  0,  0,  0,126,193,254,  3,131,126,  0,  0,  0,  0),
  151.     (  0,  0,  0, 16, 48,252, 96, 96, 96, 96, 99, 62,  0,  0,  0,  0),
  152.     (  0,  0,  0,  0,  0,  0,243, 99,195,195,199,123,  0,  0,  0,  0),
  153.     (  0,  0,  0,  0,  0,  0,246, 99,195,195,198,120,  0,  0,  0,  0),
  154.     (  0,  0,  0,  0,  0,  0,219, 91,219,219,219, 63,  0,  0,  0,  0),
  155.     (  0,  0,  0,  0,  0,  0, 99, 52, 24, 28, 38,195,  0,  0,  0,  0),
  156.     (  0,  0,  0,  0,  0,  0,199,195, 99, 54, 30, 12, 12,152,240,  0),
  157.     (  0,  0,  0,  0,  0,  0,255,142, 28, 56,112,255,  0,  0,  0,  0),
  158.     (  0,  0,  0, 14, 24, 24, 24,112, 24, 24, 24, 14,  0,  0,  0,  0),
  159.     (  0,  0,  0, 24, 24, 24, 24,  0, 24, 24, 24, 24,  0,  0,  0,  0),
  160.     (  0,  0,  0,112, 24, 24, 24, 30, 24, 24, 24,112,  0,  0,  0,  0),
  161.     (  0,  0,  0, 59,110,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  162.     (  0,  0,  0,  0,  0,  8, 28, 54, 99, 99,127,  0,  0,  0,  0,  0),
  163.     (  0,  0,  0, 30, 51, 97, 96, 96, 97, 51, 30,  6,  3, 62,  0,  0),
  164.     (  0,  0,  0,102,102,  0,102,102,102,102,102, 59,  0,  0,  0,  0),
  165.     (  0,  0,  6, 12, 24,  0, 62, 99,127, 96, 99, 62,  0,  0,  0,  0),
  166.     (  0,  0,  8, 28, 54,  0, 60,  6, 62,102,102, 59,  0,  0,  0,  0),
  167.     (  0,  0,  0,102,102,  0, 60,  6, 62,102,102, 59,  0,  0,  0,  0),
  168.     (  0,  0, 48, 24, 12,  0, 60,  6, 62,102,102, 59,  0,  0,  0,  0),
  169.     (  0,  0, 28, 54, 28,  0, 60,  6, 62,102,102, 59,  0,  0,  0,  0),
  170.     (  0,  0,  0,  0,  0, 60,102, 96,102, 60, 12,  6, 60,  0,  0,  0),
  171.     (  0,  0,  8, 28, 54,  0, 62, 99,127, 96, 99, 62,  0,  0,  0,  0),
  172.     (  0,  0,  0,102,102,  0, 62, 99,127, 96, 99, 62,  0,  0,  0,  0),
  173.     (  0,  0, 48, 24, 12,  0, 62, 99,127, 96, 99, 62,  0,  0,  0,  0),
  174.     (  0,  0,  0,102,102,  0, 56, 24, 24, 24, 24, 60,  0,  0,  0,  0),
  175.     (  0,  0, 24, 60,102,  0, 56, 24, 24, 24, 24, 60,  0,  0,  0,  0),
  176.     (  0,  0, 96, 48, 24,  0, 56, 24, 24, 24, 24, 60,  0,  0,  0,  0),
  177.     (  0,  0, 99, 99,  8, 28, 54, 99, 99,127, 99, 99,  0,  0,  0,  0),
  178.     (  0, 28, 54, 28,  0, 28, 54, 99, 99,127, 99, 99,  0,  0,  0,  0),
  179.     (  0, 12, 24, 48,  0,127, 51, 48, 62, 48, 51,127,  0,  0,  0,  0),
  180.     (  0,  0,  0,  0,  0,110, 59, 27,126,216,220,119,  0,  0,  0,  0),
  181.     (  0,  0,  0, 31, 54,102,102,127,102,102,102,103,  0,  0,  0,  0),
  182.     (  0,  0,  8, 28, 54,  0, 62, 99, 99, 99, 99, 62,  0,  0,  0,  0),
  183.     (  0,  0,  0, 99, 99,  0, 62, 99, 99, 99, 99, 62,  0,  0,  0,  0),
  184.     (  0,  0, 48, 24, 12,  0, 62, 99, 99, 99, 99, 62,  0,  0,  0,  0),
  185.     (  0,  0, 24, 60,102,  0,102,102,102,102,102, 59,  0,  0,  0,  0),
  186.     (  0,  0, 48, 24, 12,  0,102,102,102,102,102, 59,  0,  0,  0,  0),
  187.     (  0,  0,  0, 99, 99,  0, 99, 99, 99, 99, 63,  3,  6, 60,  0,  0),
  188.     (  0,  0, 99, 99, 28, 54, 99, 99, 99, 99, 54, 28,  0,  0,  0,  0),
  189.     (  0,  0, 99, 99,  0, 99, 99, 99, 99, 99, 99, 62,  0,  0,  0,  0),
  190.     (  0,  0, 24, 24,126,195,192,192,195,126, 24, 24,  0,  0,  0,  0),
  191.     (  0,  0, 28, 54, 50, 48,120, 48, 48, 48,115,126,  0,  0,  0,  0),
  192.     (  0,  0,  0,195,102, 60, 24,255, 24,255, 24, 24,  0,  0,  0,  0),
  193.     (  0,  0,252,102,102,124, 98,102,111,102,102,243,  0,  0,  0,  0),
  194.     (  0,  0, 14, 27, 24, 24, 24,126, 24, 24, 24, 24,216,112,  0,  0),
  195.     (  0,  0, 12, 24, 48,  0, 60,  6, 62,102,102, 59,  0,  0,  0,  0),
  196.     (  0,  0, 12, 24, 48,  0, 56, 24, 24, 24, 24, 60,  0,  0,  0,  0),
  197.     (  0,  0, 12, 24, 48,  0, 62, 99, 99, 99, 99, 62,  0,  0,  0,  0),
  198.     (  0,  0, 12, 24, 48,  0,102,102,102,102,102, 59,  0,  0,  0,  0),
  199.     (  0,  0,  0, 59,110,  0,110, 51, 51, 51, 51, 51,  0,  0,  0,  0),
  200.     (  0, 59,110,  0, 99,115,123,127,111,103, 99, 99,  0,  0,  0,  0),
  201.     (  0,  0, 60,108,108, 62,  0,126,  0,  0,  0,  0,  0,  0,  0,  0),
  202.     (  0,  0, 56,108,108, 56,  0,124,  0,  0,  0,  0,  0,  0,  0,  0),
  203.     (  0,  0,  0, 24, 24,  0, 24, 24, 48, 99, 99, 62,  0,  0,  0,  0),
  204.     (  0,  0,  0,  0,  0,  0,  0,127, 96, 96, 96,  0,  0,  0,  0,  0),
  205.     (  0,  0,  0,  0,  0,  0,  0,127,  3,  3,  3,  0,  0,  0,  0,  0),
  206.     (  0,  0, 96,224, 99,102,108, 24, 48,110,195,  6, 12, 31,  0,  0),
  207.     (  0,  0, 96,224, 99,102,108, 24, 51,103,207, 31,  3,  3,  0,  0),
  208.     (  0,  0,  0, 24, 24,  0, 24, 24, 60, 60, 60, 24,  0,  0,  0,  0),
  209.     (  0,  0,  0,  0,  0, 27, 54,108, 54, 27,  0,  0,  0,  0,  0,  0),
  210.     (  0,  0,  0,  0,  0,108, 54, 27, 54,108,  0,  0,  0,  0,  0,  0),
  211.     ( 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17),
  212.     (170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85),
  213.     (119,221,119,221,119,221,119,221,119,221,119,221,119,221,119,221),
  214.     ( 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24),
  215.     ( 24, 24, 24, 24, 24, 24, 24, 24,248, 24, 24, 24, 24, 24, 24, 24),
  216.     ( 24, 24, 24, 24, 24, 24,248, 24,248, 24, 24, 24, 24, 24, 24, 24),
  217.     ( 54, 54, 54, 54, 54, 54, 54, 54,246, 54, 54, 54, 54, 54, 54, 54),
  218.     (  0,  0,  0,  0,  0,  0,  0,  0,254, 54, 54, 54, 54, 54, 54, 54),
  219.     (  0,  0,  0,  0,  0,  0,248, 24,248, 24, 24, 24, 24, 24, 24, 24),
  220.     ( 54, 54, 54, 54, 54, 54,246,  6,246, 54, 54, 54, 54, 54, 54, 54),
  221.     ( 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54),
  222.     (  0,  0,  0,  0,  0,  0,254,  6,246, 54, 54, 54, 54, 54, 54, 54),
  223.     ( 54, 54, 54, 54, 54, 54,246,  6,254,  0,  0,  0,  0,  0,  0,  0),
  224.     ( 54, 54, 54, 54, 54, 54, 54, 54,254,  0,  0,  0,  0,  0,  0,  0),
  225.     ( 24, 24, 24, 24, 24, 24,248, 24,248,  0,  0,  0,  0,  0,  0,  0),
  226.     (  0,  0,  0,  0,  0,  0,  0,  0,248, 24, 24, 24, 24, 24, 24, 24),
  227.     ( 24, 24, 24, 24, 24, 24, 24, 24, 31,  0,  0,  0,  0,  0,  0,  0),
  228.     ( 24, 24, 24, 24, 24, 24, 24, 24,255,  0,  0,  0,  0,  0,  0,  0),
  229.     (  0,  0,  0,  0,  0,  0,  0,  0,255, 24, 24, 24, 24, 24, 24, 24),
  230.     ( 24, 24, 24, 24, 24, 24, 24, 24, 31, 24, 24, 24, 24, 24, 24, 24),
  231.     (  0,  0,  0,  0,  0,  0,  0,  0,255,  0,  0,  0,  0,  0,  0,  0),
  232.     ( 24, 24, 24, 24, 24, 24, 24, 24,255, 24, 24, 24, 24, 24, 24, 24),
  233.     ( 24, 24, 24, 24, 24, 24, 31, 24, 31, 24, 24, 24, 24, 24, 24, 24),
  234.     ( 54, 54, 54, 54, 54, 54, 54, 54, 55, 54, 54, 54, 54, 54, 54, 54),
  235.     ( 54, 54, 54, 54, 54, 54, 55, 48, 63,  0,  0,  0,  0,  0,  0,  0),
  236.     (  0,  0,  0,  0,  0,  0, 63, 48, 55, 54, 54, 54, 54, 54, 54, 54),
  237.     ( 54, 54, 54, 54, 54, 54,247,  0,255,  0,  0,  0,  0,  0,  0,  0),
  238.     (  0,  0,  0,  0,  0,  0,255,  0,247, 54, 54, 54, 54, 54, 54, 54),
  239.     ( 54, 54, 54, 54, 54, 54, 55, 48, 55, 54, 54, 54, 54, 54, 54, 54),
  240.     (  0,  0,  0,  0,  0,  0,255,  0,255,  0,  0,  0,  0,  0,  0,  0),
  241.     ( 54, 54, 54, 54, 54, 54,247,  0,247, 54, 54, 54, 54, 54, 54, 54),
  242.     ( 24, 24, 24, 24, 24, 24,255,  0,255,  0,  0,  0,  0,  0,  0,  0),
  243.     ( 54, 54, 54, 54, 54, 54, 54, 54,255,  0,  0,  0,  0,  0,  0,  0),
  244.     (  0,  0,  0,  0,  0,  0,255,  0,255, 24, 24, 24, 24, 24, 24, 24),
  245.     (  0,  0,  0,  0,  0,  0,  0,  0,255, 54, 54, 54, 54, 54, 54, 54),
  246.     ( 54, 54, 54, 54, 54, 54, 54, 54, 63,  0,  0,  0,  0,  0,  0,  0),
  247.     ( 24, 24, 24, 24, 24, 24, 31, 24, 31,  0,  0,  0,  0,  0,  0,  0),
  248.     (  0,  0,  0,  0,  0,  0, 31, 24, 31, 24, 24, 24, 24, 24, 24, 24),
  249.     (  0,  0,  0,  0,  0,  0,  0,  0, 63, 54, 54, 54, 54, 54, 54, 54),
  250.     ( 54, 54, 54, 54, 54, 54, 54, 54,255, 54, 54, 54, 54, 54, 54, 54),
  251.     ( 24, 24, 24, 24, 24, 24,255, 24,255, 24, 24, 24, 24, 24, 24, 24),
  252.     ( 24, 24, 24, 24, 24, 24, 24, 24,248,  0,  0,  0,  0,  0,  0,  0),
  253.     (  0,  0,  0,  0,  0,  0,  0,  0, 31, 24, 24, 24, 24, 24, 24, 24),
  254.     (255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255),
  255.     (  0,  0,  0,  0,  0,  0,  0,  0,255,255,255,255,255,255,255,255),
  256.     (240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240),
  257.     ( 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15),
  258.     (255,255,255,255,255,255,255,255,  0,  0,  0,  0,  0,  0,  0,  0),
  259.     (  0,  0,  0,  0,  0,  0, 59,110,108,108,110, 59,  0,  0,  0,  0),
  260.     (  0,  0,  0,  0,  0, 62, 99,126, 99, 99,126, 96, 96, 32,  0,  0),
  261.     (  0,  0,  0,127, 99, 99, 96, 96, 96, 96, 96, 96,  0,  0,  0,  0),
  262.     (  0,  0,  0,  0,  0,127, 54, 54, 54, 54, 54, 54,  0,  0,  0,  0),
  263.     (  0,  0,  0,127, 99, 48, 24, 12, 24, 48, 99,127,  0,  0,  0,  0),
  264.     (  0,  0,  0,  0,  0,  0, 63,108,108,108,108, 56,  0,  0,  0,  0),
  265.     (  0,  0,  0,  0,  0, 51, 51, 51, 51, 62, 48, 48, 96,  0,  0,  0),
  266.     (  0,  0,  0,  0,  0, 59,110, 12, 12, 12, 12, 12,  0,  0,  0,  0),
  267.     (  0,  0,  0,126, 24, 60,102,102,102, 60, 24,126,  0,  0,  0,  0),
  268.     (  0,  0,  0, 28, 54, 99, 99,127, 99, 99, 54, 28,  0,  0,  0,  0),
  269.     (  0,  0,  0, 28, 54, 99, 99, 99, 54, 54, 54,119,  0,  0,  0,  0),
  270.     (  0,  0,  0, 30, 48, 24, 12, 62,102,102,102, 60,  0,  0,  0,  0),
  271.     (  0,  0,  0,  0,  0,  0,126,219,219,126,  0,  0,  0,  0,  0,  0),
  272.     (  0,  0,  0,  3,  6,126,219,219,243,126, 96,192,  0,  0,  0,  0),
  273.     (  0,  0,  0, 28, 48, 96, 96,124, 96, 96, 48, 28,  0,  0,  0,  0),
  274.     (  0,  0,  0,  0, 62, 99, 99, 99, 99, 99, 99, 99,  0,  0,  0,  0),
  275.     (  0,  0,  0,  0,127,  0,  0,127,  0,  0,127,  0,  0,  0,  0,  0),
  276.     (  0,  0,  0, 24, 24, 24,255, 24, 24, 24,  0,255,  0,  0,  0,  0),
  277.     (  0,  0,  0, 48, 24, 12,  6, 12, 24, 48,  0,126,  0,  0,  0,  0),
  278.     (  0,  0,  0, 12, 24, 48, 96, 48, 24, 12,  0,126,  0,  0,  0,  0),
  279.     (  0,  0,  0, 14, 27, 27, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24),
  280.     ( 24, 24, 24, 24, 24, 24, 24, 24, 24,216,216,112,  0,  0,  0,  0),
  281.     (  0,  0,  0, 24, 24,  0,  0,255,  0,  0, 24, 24,  0,  0,  0,  0),
  282.     (  0,  0,  0,  0,  0, 59,110,  0, 59,110,  0,  0,  0,  0,  0,  0),
  283.     (  0,  0, 56,108,108, 56,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0),
  284.     (  0,  0,  0,  0,  0,  0,  0, 24, 24,  0,  0,  0,  0,  0,  0,  0),
  285.     (  0,  0,  0,  0,  0,  0,  0,  0, 24,  0,  0,  0,  0,  0,  0,  0),
  286.     (  0,  0, 15, 12, 12, 12, 12, 12,236,108, 60, 28,  0,  0,  0,  0),
  287.     (  0,  0,216,108,108,108,108,108,  0,  0,  0,  0,  0,  0,  0,  0),
  288.     (  0,  0,112,216, 48, 96,200,248,  0,  0,  0,  0,  0,  0,  0,  0),
  289.     (  0,  0,  0,  0,  0, 62, 62, 62, 62, 62, 62,  0,  0,  0,  0,  0),
  290.     (  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0)
  291.    );
  292.  
  293. var
  294.  
  295.   Offs, Segm: Word;
  296.  
  297. begin
  298.  
  299.  Offs := Ofs(Font);
  300.  Segm := Seg(Font);
  301.  
  302.  asm
  303.  
  304.     PUSH ES
  305.     PUSH BP
  306.  
  307.     MOV  AX, 1110h
  308.     MOV  BH, 10h
  309.     MOV  BL, 00h     { Font table #0 }
  310.     MOV  CX, 100h
  311.     XOR  DX, DX
  312.     MOV  ES, Segm
  313.     MOV  BP, Offs
  314.     INT  10h
  315.  
  316.     POP  BP
  317.     POP  ES
  318.  end;
  319.  
  320. end;
  321.  
  322.